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ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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FACILITY: MULTI-PROCESSING EXECUTIVE, SECONDARY EVENT FLAG SERVILES 


ABSTRACT: SWAITFR THAT SUCEEDS IS DONE ON SECONDARY. ALL 
OTHER CASES ARE RETURNED TO THE PRIMARY FOR HANDLING. 


AUTHOR: 
R.HUSTVEDT : VERSION 


MODIFIED BY: 


v03-007 SSA0016 Stan ee | : 8-Mar-1984 
Subtract IOTA from automatic working set adjustment 
time reference in PHD on any entry to SCHSWAITx code. 
(Acknowledgements go to Wayne Cardoza and Larry Kenah, 
who both collaborated on this change.) 


v03-006 wmMC0001 Wayne Cardoza 22-F eb-1984 
No reason to try to wake up swapper on every EFN wait. 


v03-005 SSA0003 Stan Amway 5-Dec-1983 
Added support for outswap scheduling changes. 
Changed process wait code to store wait time in PCB 
as longword system absolute time. 
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V03-004 KDM0035 Kathleen D. Morse 14-Dec-1982 
Fix assembly switch for performance collection for 
kernel mode services executed on secondary processor. 


V03-003 KDM0034 Kathleen D. Morse 13-Dec-1982 
Correct logic for secondary pate ge execution of 
a@ process after a WAITCHK request is done by the primary. 


v03-002 KDM0030 Kathleen D. Morse 18-Nov-1982 
Add IFPRIMARY Logic that allows primary to execute 
secondary-specific code without turning into a secondary. 


v03-001 KDM0018 Kathleen D. Morse 13-0c t-1982 
Add multi-processing switch, which generates these 
system services for the secondary processor. 
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B 5 
WAIT SERVICES 
LOGICAL AND OF eve | 


ARGLIST,MPSS$WFLAND 


; SIDE EFFECTS: 
IF THE SET OF 
ALL SET, THEN 
BE PLACED IN A 

COMPLETION CODES: 


SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 
SS$"ILLEFC = ILLEGAL EVENT FLAG CLUSTER NUMBER. EVENT NUMBER 


NOT IN THE RAN 
SS$_UNASEFC = UNASSIGNED EVENT FLAG” CLUSTER. 
; ENVIRONMENT: 


EXECUTES ON SECONDARY PROCESSOR, MODE=KERNEL 
IF INTERRUPTED AT ANY POINT, MAY CONTINUE ON PRIMARY. 


asm 


MPSSWFLAND: : 
WORD 


MOVL 
BRB 


“M<R2,R3,R4,R5> 
#1,R1 


mis =] 3B 0: 93: :57 aes Macro V04-00 


8:01 USyS SRCISYSUAIT MARS 1 


- -SBTTL MPSSWFLAND = WAIT FOR LOGICAL AND OF EVENT FLAGS 
; ¢ FUNCTIONAL DESCRIPTION: 
MPSSWFLAND RETURNS TO THE CALLER WH 
FLAGS SE D K ARE ALL 
STATE OF ALL EVENT FLAGS IN THE SPE 
; : CALLING SEQUENCE : 
CALLG 
INPUT PARAMETERS: 
Q4(AP) = EVENT FLAG NUMBER SE 
O8(AP) = MASK SELECTING COMBI 
R4 - PCB ADDRESS OF CURRENT P 
: OUTPUT PARAMETERS: 


RO - ong BEL N STATU 


ET OF EVENT 
RETURNS THE 
LUSTER. 


m>= 
am 
ao wn 


Lg BY THE MASK ARE NOT 
THE WAIT SERVICE CALL WILL 


am 


;WAIT FOR LOGICAL AND 
REGISTER SAVE rie FOR R2-R5 
SET MODE TO WAITALL 

AND MERGE WITH COMMON CODE 
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be b00 MPSSUFLOR © GATT FOR COCLEAL GR OFEVENT 'SaSepalone BSioer0y Fetes Macca vO4=00 _ 
? 2 ie: .SBTTL MPSSWFLOR - WAIT FOR LOGICAL OR OF EVENTS 
f g ; FUNCTIONAL DESCRIPTION: 
007 190: MPSSWFLOR RETURNS TO THE CALLE ER WHEN ANY OF THE 
007 192: EVENTS SELECTED BY THE MASK WITHIN THES PECIFIED CLUSTER 
007 193: ARE SET AND RETURNS THE SPATE OF ALL 32 EVENT FLAGS IN THE 
007 194: CLUSTER. 
Mie 13 : CALLING SEQUENCE 
007 199 : ’ 
007 04 ; CALLG ARGLIST,MPSSWFLOR 
9007 04 : INPUT PARAMETERS: 
0007 206: O4(AP) = EVENT FLAG NUMBER TO SELECT CLUSTER 
0007 207: O8(AP) = MASK SELECTING DESIRED COMBINATION OF EVENTS 
0007 08 R4 = PCB ADDRESS OF CURRENT PROCESS 
9007 310 : OUTPUT PARAMETERS: 
0007 le : RO = COMPLETION STATUS CODE 
0007 213: IS SATISFIED. 
0007 14; 
0007 215 : COMPLETION CODES: 
0007 316 ; 
0007 217: SS$_NORMAL = NORMAL SUCCESSEUL COMPLETION 
0007 218: SS$-ILLEFC = ILLEGAL EVENT FLAG NUMBER NOT IN THE RANGE 0-127. 
9007 19 : SS$"UNASEFC = UNASSIGNED EVENT FLAG CLUSTER. 
0007 221 : SIDE EFFECTS: 
0007 $§ 3 
0007 223: THE PROCESS ISSUING THE SERVICE CALL IS BE PLACED INA 
9007 32h WAIT STATE IF NONE OF THE SPECIFIED EVENTS ARE SET. 
0007 367 : ENVIRONMENT: 
0007 9: EXECUTES ON SECONDARY PROCESSOR, MODE=KERNEL. 
9007 0; IF INTERRUPTED AT ANY POINT, MAY CONTINUE ON PRIMARY. 
0007 : i-- 
0007 4 
0007 8 MPSSWFLOR:: :WAIT FOR LOGICAL 0 
007 40 .WORD “M<R2,R3,R4,R5> TREGISTER SAVE MASK FOR R2-R5 
9 241 CLRL sR [SET MODE TO WAIT ANY 
00B 242 WFRL: MOVL MASK (AP) RO [GET WAIT MASK 
OOOF 246 BRB MPSSWAIT [MERGE WITH COMMON CODE 
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MPSSWAITFR = WAIT FOR SINGLE EVENT -SEP-1984 03:58:01 (CSYS.SRCISYSWAIT.MAR; 1 a | 
i : .SBTTL MPSSWAITFR = WAIT FOR SINGLE EVENT 
1 5 : FUNCTIONAL DESCRIPTION: 
11 26 3 MPSSUALTER RETURNS TO THE CALLER WHEN THE SPECIFIED SINGL 
11 262: EVENT FLAG IS SET. UPON RETURN THE STATE OF ALL 32 EVENT FLAGS 
oi 63 ; EY FNIN HAE CLUSTER CONTAINING THE SPECIFIED EVENT ARE RETURN. 
oo11 65 CALLING SEQUENCE: 
O11 ie : CALLG ARGLIST,MPSSWAITFR 
a1 3 i : INPUT PARAMETERS: 
0011 75 : 04(AP)=EVENT FLAG NUMBER 
9011 26 ; R4 = PCB ADDRESS OF CURRENT PROCESS 
0011 28 : OUTPUT PARAMETERS: 
0011 279 ; 
0011 280: RO - COMPLET ION STATUS CODE 
0011 1: SATISIFIED. 
0011 § 3 
9011 3: SIDE EFFECTS: 
0011 Be IF THE SPECIFIED EVENT FLAG IS NOT SET, THE PROCESS ISSUING THE 
0011 286: WAIT SYSTEM SERVICE WILL BE PLACED IN THE APPROPRIATE WAIT 
0011 287 ; STATE. 
0011 288: 
boty Bp 3; COMPLETION CODES: 
0011 291 SS$_NORMAL = NORMAL SUCCESSFUL COMPLETION 
0011 36 : SS$_ILLEFC = ILLEGAL EVENT FLAG NUMBER NOT IN THE RANGE 0-127. 
Batt 7 ; SSS_"UNASEFC = UNASSIGNED EVENT FLAG CLUSTER. 
9011 99 : ENVIRONMENT: 
oo14 00 : EXECUTES ON SECONDARY PROCESSOR, MODE=KERNEL. 
0011 8g 
0011 307 MPSSWAITFR:: ;WAIT FOR SINGLE EVENT 
003¢ 0011 309 .WORD “M<R2,R3,R4,R5> TSAVE REGISTERS R2,R3,R4,R5 
51 D4 0013 310 CLRL sR [SET MODE 
50 01 O04 AC 9C 0015 311 ROTL EFN(AP),#1,R0 SINIT MASK 
OO1A «315; BRB MPSSWAIT SAND MERGE WITH COMMON CODE 


MPWAIT 
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=SEP=19 SYS. SRCISYSWAIT.MAR; 1 
¥ .SBTTL MPSSWAIT = WAIT COMMON CODE 
: FUNCTIONAL DESCRIPTION: 


THIS IS THE COMMON WAIT CODE FOR ALL THE EVENT FLAG WAIT 
SYSTEM SERVICES. 


INPUT PARAMETERS: 
O4(AP) = a ty rae 


RO = MASK SELECTIN 


Ie OF INTEREST 
Ri = g's aN SE 


petra 1 
EVEN 
LECTO 
1= 

R4 = PCB ADDRESS OF CURRENT PROCESS 
IMPLICIT INPUTS: 

CEB IF NON-LOCAL CLUSTER. 
OUTPUT PARAMETERS: 


RO - comms! ION STATUS CODE 
SATISIFIED. 


ENVIRONMENT : 


EXECUTES ON SECONDARY PROCESSOR, MODE=KERNEL 
IF INTERRUPTED AT ANY POINT, MAY CONTINUE ON PRIMARY. 


DDD DPD A DADA Me Be BB BE EWI nnononononony 
CONAUE WR OUI EW OOD NUE WN OO ODN NEW" OOO NOUE WW 
Tere Tee Ce Te Tee Tere Tere re rere rererere rere re rere ye Tere Ty ° 


SVS FS FONMOOM POU "FP O—-MPuomMm>y > YY > > PY YY >ryrrrr>r>r>r>r>rr rrr rrr Yr rr rr YrY 


MPSSWAIT: :WAIT COMMON CODE 
52 04 aC 98 00 CVTBL EFNCAP),R2 :GET CLUSTER are 
19 001 BLSS SILLEGAL IF NOT (0,1,2,3) 
52 52 FB 78 00 ASHL #-5,R RIGHT ALIGN CLUSTER NUMBER 

53 50 A442. DE 00 MOVAL page 2 eee Rs) ER2I.R [POINTER TO PCB EVENT CLUSTER 

2—E AG OSS 9 00 MOVB R2,PCB$B_WEFC(R4) SAVE WAIT cLUST ER wares 

15 52 £5 00 SOBGTR R :BR IF COMMON CLUSTER R2 = (2,3) 
52 00000000" GF 4: 0 MOVAG G*SCHSGO_LEFWO.R2 :SET WAIT QUEUE LPOINTER 
50 O0EC $i C 6 $9 10$: MOVZWL #SS$_ILLEFC,RO iser ERROR CODE FOR ILLEGAL CLUSTER 
50 0234 8F ¢ 4 4 208: MOVZWL #SS$_UNASEFC,RO ser ERROR CODE FOR UNASSIGNED 
52 63 10 (C1 004 ig 30$: ADDL3 #CEBSL_EFC,(R3),R2 [GET CEB ADDRESS FOR EVENT FLAGS 
FL 18 004 74 BGEQ >CEB ASSIGNED (sy STEM SPACE ADDRESS) 
FAA2 2D 91 006 75 CMPB  =s-s @D YNSC_SLAVCEB,<CEBSB_TYPE-CEBSL_EFC>(R2) ;IS THIS IN SH MEM? 
8 12 005 id: BNEQ 40% :BR IF IR LOCAL MEMORY 
53 30 a2 D 5 7 MOVL <CEBSL MAST R-CEBSL_ EFC>(R2),R3 :GET ADR OF MASTER CEB 
62 8 AS OD 5 28 MOVL cEBSL EFC(R -COPY EFC FROM MASTER TO SLAVE CEB 
09 7 ASSUME <ceBse BsC ieee EQ CEBSL_WOFL 
53 82 DE 00 0 40$ MOVAL ;GET EVENT POINTER AND sal QUEUE ADDR 
; R3=CEBSL_EFC, R2=CEBSL_WOFL 
: : RO = MASK SELECTING EVENTS OF INTEREST 
5 4: R1 = ANY/ALL MODE SELECTOR 


tg ee a ng tn | CREME PLE Ee ET ee | 
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v04= mPSsGaty = WAIT COMMON CODE eet 9¢:98 01 Heys SRC SY Su SSUAIT. MAR; 1 ° dy v0 
D 5; Re - ADDRESS OF WAIT QUEUE HEADER 
D $ ; R3 = ADDRESS OF EVENT FLAG VECTOR 
p ; R4 = PCB ADDRESS 
D S i WAITCK: :CHECK FOR WAIT SATISFIED 
D 0 SETIPL #IPL$ SYNCH SBLOCK SCHEDULING ACTIVITY 
50 $3 D 6 91 BITL  (R3),R :WAIT FOR LOGICAL OR MAY BE SATISFIED 
13. «1 36 BEQL WAIT ‘NO, MUST WAIT 
0B 51 Oo 6 93 eat BLBS = R1,WAITALL : 1'=> WAIT FOR ALL IN MASK 
5D OC AD 00 oe 95 MOVL 12(FP),FP [GET SAVED FRAME POINTER 
SE 00° ¢ 6c 39 ADDL S*#EXE$C_CMSTKSZ,SP SCLEAN STACK TO L 
6F 398 MPSSWAITCONT:: SCONTINUE HERE ar TER PRIMARY WAITCHK 
50 01 9A O6F 40 MOVZBL #SS$_NORMAL,RO SRETURN SUCCESS CODE 
an 
02 07 40 REI ;RETURN TO CALLER 
007 410 WAITALL: ; WAIT FOR ALL SELECTED EVENTS 
50 63 CA 0073 411 BICL2 (R3) RO ; CLEAR obits FOR ALREADY SET FLAGS 
FO. 13 007% 413 BEQL YES WA 
2406 01 OD 51 FO 0078 417 WAIT: INSV nt wAPCBSY WALL ,#1,PCBSL_ ETStRGD Meer WAIT ALL FLAG 
4C a4) «6 550—i«é 2 907 418 MCOML RO PCBSL_EFWM(R4) 7SAVE INVERTED WAIT MASK 
0082 421; 
0082 4 é + WAIT CONDITION IS NOT SATISFIED. PROCESS IS RETURNED TO THE PRIMARY 
+ : ? ; ALONG WITH A REQUEST BIT TO CHECK IF THE WAIT CONDITION IS SATISFIED. 
00 425 ; THE SECONDARY WAITS IN ITS IDLE LOOP, WHILE THE PRIMARY CONTINUES 
88 ? $ : EXECUTION AT MPSSWAITCK. 
3 428 ; THE PROCESS WILL BE IN A STATE READY FOR RESCHEDULING IF THE WAIT 
082 429 ; CONDITION IS NOT SATISFIED, AND THE PRIMARY WILL CONTINUE EXECUTION 
08 4 0 : AT SCHSWAIT IN THIS CASE. 
$08 4 : IFPRIMARY <JMP G*SCHSWAIT> y1F PRIMARY, THEN CONTINUE 
098 4 :IF SECONDARY, ASK FOR PRIMARY ASSIST 
5D OC AD DO 0098 434 MOVL 12(FP),FP ;PUT SAVED FRAME POINTER WHERE PRIMARY 
9F 435 : CAN FI S ITC TOUCH STACK 
SE 00° ¢ 9F 436 ADDL SHE XESC CMSTKSZ,SP [CLEAN STACK TO PC/PSL OF CHMK IN 
50 6€ O04 C€ A2 437 SUBL3 ) RO GET PS/PSL PAIR FOR CHMK INSTRUCTION 
51 AE DO OOA6 438 MOVL acgp pe Pri : INTO AP LACE E THE PRIMARY CAN TOUCH 
7E DC OOAA 439 MOVPSL 263 SP) iPUT “Pc/est 6 N STACK FOR. SECONDARY 
9000006F "GE 9F OOAC 440 PUSHAB G*MPSSWAITCONT OCESSOR T9 CON TINUE EXECUTING PROC 
00 0000' CF é &S 441 BBSS1 #MPS$V SECWAITCK,W*MPSSGL SECREGPLG. 10$ ;IND WAIT CHECK REQUEST 
FF45" 31 008 44g 10$: BRW MPSSMPSCHED2 360 WAIT IN IDLE LOOP FOR WORK TO DO 


MPWAIT = SECONDARY EVENT FLAG WAIT $ eavit SEP-1984 :09:57 VAX/VMS Macro V04-00 Page 
y0e-b00 MPSSWAITCK = PRIMARY CHECK eRe oF r10 s° iets 1 9g: 98:34 SYS.SRCISYSWAIT.MAR;1 ° 
4 te? , ne ~SBTTL MPSSWAITCK = PRIMARY CHECK WAIT CONDITION FOR POTENTIAL RESCHED 
BB 4a? FUNCTIONAL DESCRIPTION: 

168 | MPSSWAITCK IS EXECUTED BY THE PRIMARY proce sson arene ver 

4 9 THE SECONDARY PROCESSOR EXECUTES AN EVENT FLAG WAIT SYSTEM 

4 SERVICE THAT CAUSES A PROCESS TO ACTUALLY wart.” THE PRIMARY 

4 § PROCESSOR EXECUTES THIS CODE DUE TO A SECONDARY ReoUS ST FLAG, 

45 DISPATCHED FROM THE era RESCHEDULING CODE. THIS IS 

$83 ENTERED VIA THE IPL 5 (MULTI=-PROCESSING SECONDARY RESCHEDULE 

? 5 REQUEST) INTERRUPT OR THE IPL 3 (PRIMARY RESCHEDULE) INTERRUPT. 

t3$ OTE: A RACE CONDITION EXISTS IF THE PRIMARY IS IN THE IPL 3 

$38 HANDLER WHEN THE SECONDARY SETS ‘ie REQUEST FLAG, AND THUS THIS 

45 CODE MAY BE EXECUTED FROM m IPL 5 LOGIC, THOUGH IT IS INTENDED 

+89 TO BE EXECUTED FROM THE IPL PATH. 

$06 THE SECONDARY HAS DONE A SVPCTX FOR THIS PROCESS dust PRIOR 

46 TO WHERE THE PRIMARY WOULD HAVE EXECUTED SCHSWAIT, IF THE 

464 SYSTEM SERVICE WAS BEING EXECUTED ON THE PRIM RY. ws 

465 IMARY LOOK IN THE HARDWARE PCB RT 

466 INFORMATION NEEDED TO EHECK THE EVENT FLAG WAIT CONDI TION 

467 AND . RESCHEDULING IS NEEDED, TO CONTINUE EXECUTING 

468 THIS PROCESS AT THE EQUIVALENT OF THE SCHS$WAIT LOGIC AT 

r 3 SECWAIT. 


CALLING SEQUENCE: 
JSB MPSSWAITCHK 

INPUT PARAMETERS: 
MPSSGL_CURPCB - ADDRESS OF PCB FOR CURRENT PROCESS ON SECONDARY 
IN THE PHD FOR THE CURRENT PROCESS ON SECONDARY: 


of = PC e CHMK INSTRUCTION 
K SL_FOR RE-EXECUTION OF CHMK INSTRUCTION 
: 


WAIT QUEUE HEADER 
PCB R 
50(S P) = PC AT WHICH TO RE-EXECUTE THE CHMK INSTRUCTION 


COCOONS NNN 


ADDRESS OF EVENT FLAG. VECTOR 
ADDRESS 
O4(SP) = PSL WITH WHICH TO RE-EXECUTE THE CHMK INSTRUCTION 
ON PRIMARY'S INTERRUPT STACK: 
IF ENTERED FROM IPL 5 INTERRUPT HANDLER: 
saver RO (AT TIME or INTERRUPT) 


SESEEEEEEESSE ESE SSSSS SESE EEE EEE SSS EEEEEEE TEESE 


eee ee tt ot or aaa aaa 


eeeevaeuegesn 
 WOHuUNnn 
>22 
< 
m 
eet be Rees bt Ged be 


RUPT) 
EDULE INTERRUPT 
HEDULE INTERRUPT 


— 0000 
PWOLonwero 
Fe) tet i i i i i 
ANMNNNnnnnw 
vuVvUVVUUU 
Swe a ae ae we 


= SECONDARY E 
MPSSWAITCK = 


mAacolT7g 
OWDWoooo 
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VENT FLAG WAIT SERVICES 1 =SEB-1984 03:09:57 YAX/ViKS Macro v04-00 Page 
PRIMARY CHECK WAIT CONDITIO 5-SEP=1984 03:58:01 [SYS.SRCISYSWAIT.MAR; 1 

¢ 3 IF ENTERED FROM IPL 3 INTERRUPT HANDLER: 

4: O(SP) = PC AT TIME OF IPL 3_RESCHEDULE INTERRUPT 

5; 4(SP) = PSL AT TIME OF IPL 3 RESCHEDULE INTERRUPT 

; : IPL=SYNCH. 

09 : OUTPUTS: 

11; ROCESS 1S EITHER RETURNED TO THE SECONDARY TO CONTINUE EXECUTION 

1g ; THIS PROCESS IS PLACED INTO A WAIT STATE AND ANOTHER PROCESS 

13 ; 3 SCHEDULED FOR PHES SECONDARY. 

13 : RO-R4 MAY BE DESTROYED (IF RPTEVT AST IS DONE). 
17 > ENVIRONMENT: 
$28 : EXECUTES ON PRIMARY PROCESSOR, MODE=KERNEL, IPL=SYNCH. 

0 ; 
5 * 
5 j MPSSWAITCK:: 
504 MOVL § W°MPS$GL_CURPCB,R4 :GET PCB OF CURRENT PROCESS ON SECONDARY 
525 MOVL  PCBSL_PHB(R4) .R5 [GET ADDRESS OF HARDWARE P 
526 MOVL PHDSL Re (RD) oR [GET ADR OF WAIT QUEUE HEAD 
; 7 » PHDSL =R3(R5 [GET ADR OF EVENT FLAG VECTOR IN CEB 

8 BICL3 PCBSL ~frumerdy (R3),R1  :TEST WALT ASK 
529 EQL ©: 308 “BR IF WAIT NOT SATISFIED 
3 0 : BBS #PCBSV_WALL ,PCBSL_STS(R45 ,20$ BR IF WAITING FOR ANY FLAGS 
3 ; $ RETURN PROCESS TO SECONDARY AS WAIT CONDITION IS SATISFIED. 
534 ios: 
$36 MOVL § #MPSSK_BUSYSTATE,W°MPSSGL_STATE ;START SECONDARY EXECUTING PROC 
40 
541 RSB ;RETURN TO RESCHEDULING LOGIC TO 
248 : FINISH EITHER RESTORING REGISTERS 
a7 : CIPL 5) OR SCHED PRIMARY (IPL 3) 
545 ; 

4g : CHECK IF ANY OF THE FLAGS WERE SET -- SWFLOR REQUEST. 

48 20$:  MCOML R1,R1 s INVERT MASKED FLAGS 

4 CMPL PCBSL_EFWM(R4),R1 SCHECK FOR ‘AND’ OF ALL FLAGS 

50 BEQL 10$ ‘BR IF WAIT SATISFIED 

5 : BRB 30$ [CONTINUE IF WAIT NOT SATISFIED 

2 

54 ; PLACE PROCESS IN A WAIT STATE AS WAIT CONDITION IS NOT MET, AND 

36 | : RESCHEDULE ANOTHER PROCESS FOR SECONDARY. 
557 30s: 
558 ; BRW SECWAIT sCONTINUE AT THE EQUIVALENT OF SCHSWAIT 


42 
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on .SBTTL SECWAIT = PLACES SECONDARY'’S PROCESS IN SELECTED WAIT QUEUE 
$ FUNCTIONAL DESCRIPTION: 


-—O 
=—2 
= 4 
‘> 
= 


SECWAIT PLACES THE SECONDARY'S CURRENT PROCESS IN A WAIT QUEUE 
SELECTED BY A WAIT QUEUE HEADER ADDRESS SUPPLIED IN A REGISTER 
A NEW PROCESS IS THEN SELECTED FOR EXECUTION. 


CALLING SEQUENCE: 
JMP SECWAIT 
INPUT PARAMETERS: 
R2 = WAIT sue HEADER ADDRESS 
B ADDRESS 
ADDRESS 
O(SP) = PC AT WHICH TO RE-EXECUTE THE CHMK INSTRUCTION 
4(SP) = PSL WITH WHICH TO RE-EXECUTE THE CHMK INSTRUCTION 
ON PRIMARY'’S INTERRUPT STACK: 
IF ENTERED FROM IPL 5 INTERRUPT HANDLER: 


= SAVED RO (AT TIME OF fad fanny 
- SAVED R1 (AT TIME OF INTER any 


 DEuzzz 


ATT RESCH EDULE. INTERRUPT 
PSL AT TIME OF TPL 5 RESCHEDULE INTERRUPT 


ROM IPL 3 INTERRUPT HANDLER: 


- PC AT_TIME OF IPL 3_RESCHEDULE INTERRUPT 
- PSL AT TIME OF IPL 3 RESCHEDULE INTERRUPT 
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IF ENTERE 


00(SP 
04(SP 


IMPLICIT INPUTS: 


E 
PLACED IN THE HA 


one -m 


THE PRIMARY HAS AL 
gy PROCESS ON 
THE INSTRUCTION FOR 
THE STACK. THEY AR 
CANNOT ACCESS THE S 


SIDE EFFECTS: 
THE PROCESS SPECIFIED BY THE PCB ADDRESS IN R4 IS PLACED 


R ET R 

SECONDARY PROCESSOR. THE PC/PSL FOR 
EXECUTING THE CHMK INSTRUCTION ARE ON 

SO CONTAINED IN RO/R1, SINCE THE PRIMARY 
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ALS PROFESS in SaSEpalobe OS:oBioy Fever ee Hacce VO4n00 eee 
IN THE WALT QUEUE LOCATED BY RZ AND A NEW PROCESS 1S 

SCHEDULED FOR THE SECOND 7 PROCES 


ENVIRONMENT: 


EXECUTES ON PRIMARY PROCESSOR, IPL=SYNCH, MODE=KERNEL. 


: ;PLACE PROCESS IN WAIT STATE 
ADDL #8,PHDSL_KSP(RS) “CLEAN PC/PSL OF CHMK INSTR OFF STACK 
MOVL  § PHOSL_ROTRS) .PHDSL_PC(RSS ;SET PC TO BE CHMK INSTRUCTI 
MOVL §PHDSL“R1(R5) -PHDSL_PSL(R5)’;SET PSL BACK FOR CHMK INSTRUCTION 
WOHSW-WOCNT (R2) ; INCREMENT COUNT FOR QUEUE 
INSQUE (R4) ,Q@QH$L_WQFL(R2) “INSERT IN QUEUE 
WOHSW_WQSTATE(R2) ,PCBSW_STATE(R4) ;SET STATE FOR PROCESS 
THE STATE NUMBER IS CONTAINED 
IN THE QUEUE HEADER 
MOVZWL G*“*SCHSGW_ tebe RO :Get a longword o£ IOTA 
ADDW RO, PHDSW~QUANT (RS) SCHARGE QUOTA FOR bONTARY WAIT 
SUBL2 RO,PHDSL THMREF CR R5) jAdjust Au AWSA time reference 
MOVL  G*EXESGL-ABSTIM PCBSL_ WAI TIME (R4) ;RECORD TIME AT WAIT START 
cHPB #4, PHDSB_ASTLVL ( NULL ASTLVL VL? 


Q 
BBSSI #LCKS$V_INTERLOCK ,W*MPSSGL_ INTERLOCK One iss ce ;FLUSH CACHE QUEUE 
MOVL §§ #MPSSKIDLESTATE.W “APSSL TS SET $ DLE 


ECOND 
RSB RETURA io” SCHEDULE” SECONDARY 


;FETCH AND ZERO EXT ND PENDING ASTLVL 
#PSL$U_CURMOD, WPSLSS_ CURMOD PHDSL_PSL(R5),RO ;COMPARE WITH WAIT 


ACCESS 


D 
BLSS 10$ :BRANCH IF AST NOT DELIVERABLE 


Test for assumptions that are botag made about the layout of the 
PSL that enables the next instructio 


mn to work correctly. 


o IPL field begins on a oyte boundary 
o IPL field fits into as 


ngle byte 


ASSUME <<<PSL$V st i ie - PSLSV IPL> EQ 0 ; IPL must be byte aligned 
ASSUME PSL$S_IPC ; IPL field must fit into by 


BITB cpeLy IPL@-PSL$V_IPL> 


to" V_TPL/8>+PHDSC “PSLERS) ;MUST BE AT IPL O FOR DELIVERY 
BNEQ ;BRANCH IF AST NOT DELIVERABLE 
CLRL Ro 7SET NULL PRIORITY INCREMENT 
RPTEVT Aare dSB ;REPORT AST EVENT 
BRB 10$ 360 SCHEDULE NEXT PROCESS 


~a-_ 
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Symbol table SEP-1984 RCJSYSWAIT MAR; 1 " al 
CEBSB_TYPE 2 OA SCHSRSE aeeeeeee =X 
CEBSL_EFC z SCHSWALT aeeeeeee § xX 
CEBSL_MASTER = 4 secuars EO R 
CEBSL_WOFL = 1 SS$_ILLEFC S C 
DYNSC_SLAVCEB z 3p SS$"NORMAL 2 1 
= 00000004 SS$-UNASEFC z 4 
EVTS_AST teeeeeee =X WAIT § R 
EXESC_CMSTKSZ eeeneree =X WAITALL 73, R 
EXESGC_ABSTIM eeeeeeee =X WAITCK 50 R 
EXESGL-RPB aeeerere =X WF RL 08 R 
CSO INTERLOCK = 90000000 WOHSU-WOCNT : 08 
= = 
RASK = 90000008 WONSU~WOS TATE = BO00000A 
MPS$GL_CURPCB eeeeeeee =X 0 
MPSS$GL—INTERLOCK aeeeeeee =X 
MPSS$GL_SECREQFLG eeneneee =X 
MPSS$GL-STATE aeeeeeee =X 
S$Kk_BUSYSTATE = 00000003 
MPSS$K~IDLESTATE = 00000001 
SSMPSCHED2 aeeeeeee =X 02 
MPSS$V_SECWAITCK = 900 002 
MPSSWAIT 0 pI ® 0 
SSWAITCK 00000 RG 
MPSSWAITCONT BB00006F RG 8 
MPSSWAITFR 900001) RG 
MPSSWFL 0000 RG 8 
MPSSWFLOR 30008 RG 
MPSWITCH = 000 1 
AIT 4 444 8 R 02 
CBSB_! = 0000 f 
PCBSL_EFCS = 000000 
PCBSL_EF WM = 0000004C 
PCBSL_PHD = 0000006C 
CBSL_S7S = it 024 
PCBSL_WAITIME s 09 118 
PCBSUTSTATE = 0000 boc 
= 
PHD$B_ASTLVL = 900000 F 
PHDSL_KSP = 9 9 8 
PHDSL_PC = ¢ 
PHDSL_PSL = 000C4 
PHDSL_RO e 8 
PHDSL_R1 = 00 
PHDSL_R2 = 
PHDSL_RO = 9 
PHDSL—TIMREF = 190 
PHDSW- QUANT = C 
_ IPL s 1 
PRS-SCBB = 1 
PSLSM_IPL = OO1F 
PSL$S_CURMOD = 9 
PSL$S_IPL z 
PSL$V~CURMOD z 
PSL$V—IPL s 1 
RPBSL~ SC s 
SCH$GO_LEF WO etereeee =X 03 
SCHSGW_IOTA eeecenee x 
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me 


men emo w er men meme wn > 


! Psect synopsis ! 


tmoes owner ewer en $ 


PSECT name Allocation PSECT No. Attributes 


° 00000000 ( 9 ‘ 9. ) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABS$ 000000 ( 0°) }.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
AE XENONPAGES 000001 ( 33 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

tee er ee wer en were een memo meh 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:0 :80.99 00: 00: 01.55. 
Command processing 11 B38 701.26 0:00:09.2 
Pass 38 00:00:12.41 00:00:40.99 
Symbol table sort 0 00:00:01.86 Ba: :00: 30¢-8 
Pass 2 111 00:00: 5-48 8 00:8 -6 
Symbol table output g 00:00:00.10 00:00:00.8 
Psect synopsis output 3 Bo 288: -0¢ Oe 8d Oe 
Cross-reference output 00:00:00.0 00:00:00.0 
Assembler run totals 654 00:00:18.51 00:01:04.06 


The working set_Limit was 1650 pages. 

72959 bytes_(143 pages) of virtual memory were used to buffer the intermediate cod 

There were 70 pages of symbol table space ay ho + to hold 1210 non-local and 12 lecat symbols. 
731 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

27 pages of virtual memory were used to define 26 macros. 


Macro Library name Macros defined 


~-$255$DUA28 : (MP .OBJJMP.MLB; 1 5 
~$255$DUA28: (SYS .OBJJLIB.MLB; 1 
“$255$DUA28: (SYSLIBISTARLET.MLB;2 

TOTALS (all Libraries) 24 


1388 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:MPWAIT/OBJ=OBJ$:MPWAIT MSRCS$:MPPREF IX/UPDATE=(ENHS:MPPREF IX) *MSRC$:MPSWT/UPDATE=(ENHS:MPSWT) +MASD$:CSYS.SRCISYSWAIT/U 
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